home *** CD-ROM | disk | FTP | other *** search
/ PsL Monthly 1993 December / PSL Monthly Shareware CD-ROM (December 1993).iso / prgmming / win / vb / fixmenu.exe / GLOBAL.BAS < prev    next >
Encoding:
BASIC Source File  |  1991-09-06  |  4.8 KB  |  97 lines
  1. '  Menu flags for Add/Check/EnableMenuItem()
  2. Global Const MF_INSERT = &H0
  3. Global Const MF_CHANGE = &H80
  4. Global Const MF_APPEND = &H100
  5. Global Const MF_DELETE = &H200
  6. Global Const MF_REMOVE = &H1000
  7.  
  8. Global Const MF_BYCOMMAND = &H0
  9. Global Const MF_BYPOSITION = &H400
  10.  
  11. Global Const MF_SEPARATOR = &H800
  12.  
  13. Global Const MF_ENABLED = &H0
  14. Global Const MF_GRAYED = &H1
  15. Global Const MF_DISABLED = &H2
  16.  
  17. Global Const MF_UNCHECKED = &H0
  18. Global Const MF_CHECKED = &H8
  19. Global Const MF_USECHECKBITMAPS = &H200
  20.  
  21. Global Const MF_STRING = &H0
  22. Global Const MF_BITMAP = &H4
  23. Global Const MF_OWNERDRAW = &H100
  24.  
  25. Global Const MF_POPUP = &H10
  26. Global Const MF_MENUBARBREAK = &H20
  27. Global Const MF_MENUBREAK = &H40
  28.  
  29. Global Const MF_UNHILITE = &H0
  30. Global Const MF_HILITE = &H80
  31.  
  32. Global Const MF_SYSMENU = &H2000
  33. Global Const MF_HELP = &H4000
  34. Global Const MF_MOUSESELECT = &H8000
  35.  
  36. '  Menu item resource format
  37. Type MENUITEMTEMPLATEHEADER
  38.     versionNumber As Integer
  39.     offset As Integer
  40. End Type
  41.  
  42. Type MENUITEMTEMPLATE
  43.     mtOption As Integer
  44.     mtID As Integer
  45.     mtString As Long
  46. End Type
  47.  
  48. Global Const MF_END = &H80
  49.  
  50. '  System Menu Command Values
  51. Global Const SC_SIZE = &HF000
  52. Global Const SC_MOVE = &HF010
  53. Global Const SC_MINIMIZE = &HF020
  54. Global Const SC_MAXIMIZE = &HF030
  55. Global Const SC_NEXTWINDOW = &HF040
  56. Global Const SC_PREVWINDOW = &HF050
  57. Global Const SC_CLOSE = &HF060
  58. Global Const SC_VSCROLL = &HF070
  59. Global Const SC_HSCROLL = &HF080
  60. Global Const SC_MOUSEMENU = &HF090
  61. Global Const SC_KEYMENU = &HF100
  62. Global Const SC_ARRANGE = &HF110
  63. Global Const SC_RESTORE = &HF120
  64. Global Const SC_TASKLIST = &HF130
  65.  
  66. Global Const SC_ICON = SC_MINIMIZE
  67. Global Const SC_ZOOM = SC_MAXIMIZE
  68.  
  69. Declare Function LoadMenu Lib "User" (ByVal hInstance As Integer, ByVal lpString As String) As Integer
  70. Declare Function LoadMenuIndirect Lib "User" (lpMenuTemplate As MENUITEMTEMPLATE) As Integer
  71. Declare Function GetMenu Lib "User" (ByVal hWnd As Integer) As Integer
  72. Declare Function SetMenu Lib "User" (ByVal hWnd As Integer, ByVal hMenu As Integer) As Integer
  73. Declare Function ChangeMenu Lib "User" (ByVal hMenu As Integer, ByVal wId As Integer, ByVal lpszNew As String, ByVal wIDNew As Integer, ByVal wChange As Integer) As Integer
  74. Declare Function HiliteMenuItem Lib "User" (ByVal hWnd As Integer, ByVal hMenu As Integer, ByVal wIDHiliteItem As Integer, ByVal wHilite As Integer) As Integer
  75. Declare Function GetMenuString Lib "User" (ByVal hMenu As Integer, ByVal wIDItem As Integer, ByVal lpString As String, ByVal nMaxCount As Integer, ByVal wFlag As Integer) As Integer
  76. Declare Function GetMenuState Lib "User" (ByVal hMenu As Integer, ByVal wId As Integer, ByVal wFlags As Integer) As Integer
  77. Declare Sub DrawMenuBar Lib "User" (ByVal hWnd As Integer)
  78. Declare Function GetSystemMenu Lib "User" (ByVal hWnd As Integer, ByVal bRevert As Integer) As Integer
  79. Declare Function CreateMenu Lib "User" () As Integer
  80. Declare Function CreatePopupMenu Lib "User" () As Integer
  81. Declare Function DestroyMenu Lib "User" (ByVal hMenu As Integer) As Integer
  82. Declare Function CheckMenuItem Lib "User" (ByVal hMenu As Integer, ByVal wIDCheckItem As Integer, ByVal wCheck As Integer) As Integer
  83. Declare Function EnableMenuItem Lib "User" (ByVal hMenu As Integer, ByVal wIDEnableItem As Integer, ByVal wEnable As Integer) As Integer
  84. Declare Function GetSubMenu Lib "User" (ByVal hMenu As Integer, ByVal nPos As Integer) As Integer
  85. Declare Function GetMenuItemID Lib "User" (ByVal hMenu As Integer, ByVal nPos As Integer) As Integer
  86. Declare Function GetMenuItemCount Lib "User" (ByVal hMenu As Integer) As Integer
  87.  
  88. Declare Function InsertMenu Lib "User" (ByVal hMenu As Integer, ByVal nPosition As Integer, ByVal wFlags As Integer, ByVal wIDNewItem As Integer, ByVal lpNewItem As Any) As Integer
  89. Declare Function AppendMenu Lib "User" (ByVal hMenu As Integer, ByVal wFlags As Integer, ByVal wIDNewItem As Integer, ByVal lpNewItem As Any) As Integer
  90. Declare Function ModifyMenu Lib "User" (ByVal hMenu As Integer, ByVal nPosition As Integer, ByVal wFlags As Integer, ByVal wIDNewItem As Integer, ByVal lpString As Any) As Integer
  91. Declare Function RemoveMenu Lib "User" (ByVal hMenu As Integer, ByVal nPosition As Integer, ByVal wFlags As Integer) As Integer
  92. Declare Function DeleteMenu Lib "User" (ByVal hMenu As Integer, ByVal nPosition As Integer, ByVal wFlags As Integer) As Integer
  93. Declare Function SetMenuItemBitmaps Lib "User" (ByVal hMenu As Integer, ByVal nPosition As Integer, ByVal wFlags As Integer, ByVal hBitmapUnchecked As Integer, ByVal hBitmapChecked As Integer) As Integer
  94. Declare Function GetMenuCheckMarkDimensions Lib "User" () As Long
  95. Declare Function TrackPopupMenu Lib "User" (ByVal hMenu As Integer, ByVal wFlags As Integer, ByVal x As Integer, ByVal y As Integer, ByVal nReserved As Integer, ByVal hWnd As Integer, lpReserved As Any) As Integer
  96.  
  97.